Ian & Stuart's Australian Mac 1993 September/September 93.iso/Archives/Games/Board/Mosaic, 1.A.0/Sample, 3 players

Text File | 1992-06-02 | 4KB | 16 lines

'tiles$game_state'(definitions, [c(t01, [a, a, a, a]), c(t02, [b, a, a, a]), c(t03, [b, b, a, a]), c(t04, [b, a, b, a]), c(t05, [a, a, a, a]), c(t06, [b, a, a, a]), c(t07, [b, b, a, a]), c(t08, [b, a, b, a]), c(t09, [b, b, b, b]), c(t10, [a, b, b, b]), c(t11, [a, a, b, b]), c(t12, [a, b, a, b]), c(t13, [b, b, b, b]), c(t14, [a, b, b, b]), c(t15, [a, a, b, b]), c(t16, [a, b, a, b]), c(t17, [a, a, a, a]), c(t18, [c, a, a, a]), c(t19, [c, c, a, a]), c(t20, [c, a, c, a]), c(t21, [a, a, a, a]), c(t22, [c, a, a, a]), c(t23, [c, c, a, a]), c(t24, [c, a, c, a]), c(t25, [b, b, b, b]), c(t26, [c, b, b, b]), c(t27, [c, c, b, b]), c(t28, [c, b, c, b]), c(t29, [b, b, b, b]), c(t30, [c, b, b, b]), c(t31, [c, c, b, b]), c(t32, [c, b, c, b]), c(t33, [c, c, c, c]), c(t34, [a, c, c, c]), c(t35, [a, a, c, c]), c(t36, [a, c, a, c]), c(t37, [c, c, c, c]), c(t38, [a, c, c, c]), c(t39, [a, a, c, c]), c(t40, [a, c, a, c]), c(t41, [c, c, c, c]), c(t42, [b, c, c, c]), c(t43, [b, b, c, c]), c(t44, [b, c, b, c]), c(t45, [c, c, c, c]), c(t46, [b, c, c, c]), c(t47, [b, b, c, c]), c(t48, [b, c, b, c])]).
'tiles$game_state'(board, [t(50-45, t48-1), t(51-45, t32-0), t(50-42, t08-1), t(51-41, t47-0), t(51-42, t31-0), t(51-44, t24-0), t(51-43, t46-3), t(52-42, t30-1), t(52-43, t07-2), t(56-41, t45-0), t(58-42, t29-0), t(52-44, t21-0), t(57-41, t44-0), t(57-42, t25-0), t(53-43, t17-0), t(56-42, t43-0), t(56-43, t28-1), t(54-43, t23-0), t(55-43, t41-0), t(55-44, t27-2), t(53-44, t22-3), t(54-44, t37-0), t(55-45, t26-1), t(56-46, t20-0), t(54-45, t42-0), t(54-46, t16-1), t(59-49, t06-1), t(58-50, t40-0), t(58-49, t15-1), t(57-49, t19-2), t(56-49, t39-2), t(55-50, t14-0), t(55-49, t04-0), t(57-48, t38-1), t(53-47, t13-0), t(56-48, t18-2), t(56-47, t36-1), t(55-46, t12-1), t(55-47, t03-2), t(51-49, t35-1), t(54-47, t09-0), t(55-48, t02-0), t(52-50, t33-0), t(54-48, t11-0), t(54-49, t05-0), t(52-49, t34-3), t(53-48, t10-0), t(53-49, t01-0)]).
'tiles$game_state'(holes, []).
'tiles$game_state'(off_board_tiles, []).
'tiles$game_state'(hands, [3+[], 2+[], 1+[]]).
'tiles$game_state'(player, 1).
'tiles$game_state'(edge_player, 1).
'tiles$game_state'(number_of_players, 3).
'tiles$game_state'(activity, select_edge).
'tiles$game_state'(associated_active_sites, []).
'tiles$game_state'(protected_edge_positions, []).
'tiles$game_state'(progress, progress(nolead, [e(a, 222, [169-[t10, t34, x(t04, 3), t01, t05, x(t36, 3), t03, t11, t38, t02, t18, x(t04, 1), t39], 36-[t23, t17, t22, t07, t21, t24], 9-[t19, t15, t40], 4-[x(t12, 3), t16], 4-[x(t12, 1), t20]]), e(b, 121, [49-[x(t12, 0), t10, t11, t03, t13, t09, t16], 25-[x(t28, 2), x(t44, 0), t43, t25, t29], 9-[x(t12, 2), t26, t27], 9-[t47, t31, t08], 9-[t30, t07, t46], 4-[x(t32, 3), t48], 4-[x(t16, 2), t42], 4-[x(t04, 0), t14], 4-[t15, t06], 4-[t02, t04]]), e(c, 119, [4-[x(t36, 2), t20], 4-[x(t36, 0), t18], 16-[x(t24, 2), t46, t30, t31], 4-[x(t24, 0), t32], 9-[t43, x(t44, 3), t45], 9-[t38, t39, t19], 9-[t33, t34, t35], 64-[t26, t42, t22, t37, t27, t23, t41, t28]])])).
'tiles$game_state'(pending_replacements, []).
'tiles$game_state'(active_sites, [active(a0, [_1, _2, c, _3], 51-46), active(a1, [_4, _5, c, _6], 50-46), active(a2, [a, c, _7, _8], 50-41), active(a3, [b, _9, _10, b], 52-41), active(a4, [a, _11, _12, b], 53-42), active(a5, [b, _13, _14, c], 58-41), active(a6, [b, _15, _16, _17], 57-40), active(a7, [c, c, _18, _19], 55-42), active(a8, [c, _20, _21, _22], 56-40), active(a9, [_23, _24, b, c], 57-43), active(a10, [c, _25, _26, a], 57-47), active(a11, [b, _27, _28, c], 58-48), active(a12, [_29, _30, a, c], 59-50), active(a13, [c, b, _31, _32], 52-48), active(a14, [_33, c, a, _34], 51-50)]).
'tiles$version'(6).